geo2addr <- function(geoash, coordtype = 'wgs84ll'){
  ak <- '95f458da4f90faa19c88ddbb6d249130'
  coord <- gh_decode(geoash)[,c('lat','lng')]
  coord_parse <- apply(coord, 1, function(x) 
    revGeocoding(paste(x,collapse = ','), coordtype = coordtype, ak = ak)[['result']])
  formatted_address <- lapply(coord_parse,`[[`,'formatted_address')
  sematic_description <- lapply(coord_parse,`[[`,'sematic_description')
  coord_info <- paste(formatted_address,sematic_description, sep = ',')
  return(coord_info)
}

